Aminet 6/Aminet 6 - June 1995.iso/Aminet/misc/emu/PC_TaskPatch31.lha/PC-TaskPatch3.1/Update_PC-Task3.0

Text File | 1995-03-25 | 4.0 KB | 202 lines

; PC-Task v3.0 to v3.10 Updater
; 24/3/95    Copyright 1995 Quasar Distribution
; Translated by:

(set @default-dest "SYS:")

(set german_readme_size 1446)

; English language

(set #pctask-location
(cat "Please select location of PC-Task program(s):"
))

(set #help-askbool
(cat "Please select Yes to install the file(s) "
     "or select No so they are not installed. "
))

(set #help-askloc
(cat "Your PC-Task and/or PC-TaskTurbo program "
     "must be in the directory you select in "
     "order for it to be updated.  The programs "
     "must not have their files names changed. "
))

(set #install-crossmount
(cat "Do you wish to install the PCTCrossmount program?\n"
     "This program easily creates a mountlist file for "
     "PC-Task hardfiles or partitions. "
))


;--------------------------------------------------

(set dest2    (askdir    (prompt #pctask-location)
            (default @default-dest)
            (help #help-askloc)
            )
)

(set pp (pathonly @icon))
(set pp (cat "\"" pp "/"))
(set pq (cat pp "PCTPatch\" "))

; update the PC-Task program if it exists
(if    (= (exists (tackon dest2 "PC-Task68000_10")) 1)
    (
        (run (cat pq  "\"" (tackon dest2 "PC-Task68000_10\" ")   (tackon pp "PC-Task68000_10.pch\" ") "ram:PC-Task68000_10"))

        (if (= (exists "ram:PC-Task68000_10") 1)
            (
                (copyfiles
                    (source "ram:PC-Task68000_10")
                    (dest dest2)
                    (help @copyfiles-help)
                )

                (delete "ram:PC-Task68000_10")
            )
        )
    )
)

(if    (= (exists (tackon dest2 "PC-Task68020_60")) 1)
    (
;                      ----this is the oldfile------------------- -----patchfile---------------------  ----newfile-----------
        (run (cat pq  "\"" (tackon dest2 "PC-Task68020_60\" ")   (tackon pp "PC-Task68020_60.pch\" ") "ram:PC-Task68020_60"))


        (if (= (exists "ram:PC-Task68020_60") 1)
            (
                (copyfiles
                    (source "ram:PC-Task68020_60")
                    (dest dest2)
                    (help @copyfiles-help)
                )

                (delete "ram:PC-Task68020_60")
            )
        )
    )
)

; update the PC-Task Turbo program if it exists
(if    (= (exists (tackon dest2 "PC-TaskTurbo68000_10")) 1)
    (
        (run (cat pq  "\"" (tackon dest2 "PC-TaskTurbo68000_10\" ")   (tackon pp "PC-TaskTurbo68000_10.pch\" ") "ram:PC-TaskTurbo68000_10"))

        (if (= (exists "ram:PC-TaskTurbo68000_10") 1)
            (
                (copyfiles
                    (source "ram:PC-TaskTurbo68000_10")
                    (dest dest2)
                    (help @copyfiles-help)
                )

                (delete "ram:PC-TaskTurbo68000_10")
            )
        )
    )
)

(if    (= (exists (tackon dest2 "PC-TaskTurbo68020_60")) 1)
    (
        (run (cat pq  "\"" (tackon dest2 "PC-TaskTurbo68020_60\" ")   (tackon pp "PC-TaskTurbo68020_60.pch\" ") "ram:PC-TaskTurbo68020_60"))

        (if (= (exists "ram:PC-TaskTurbo68020_60") 1)
            (
                (copyfiles
                    (source "ram:PC-TaskTurbo68020_60")
                    (dest dest2)
                    (help @copyfiles-help)
                )

                (delete "ram:PC-TaskTurbo68020_60")
            )
        )
    )
)

(set hardy     (askbool
            (prompt #install-crossmount)
            (help #help-askbool)
        )
)

(if (= hardy 1)
    (
        (copyfiles
            (source "PCTCrossMount")
            (dest dest2)
            (infos)
            (help @copyfiles-help)
        )

        (tooltype
            (help @tooltype-help)
            (dest (tackon dest2 "PCTCrossMount"))
            (noposition)
        )

        (if (= (getsize (tackon dest2 "README_FIRST!")) german_readme_size)
            (
                (copyfiles
                    (source "PCTCrossMount_deu.doc")
                    (dest dest2)
                    (newname "PCTCrossMount.doc")
                    (help @copyfiles-help)
                )

                (copyfiles
                    (source "PCTCrossMount.doc.info")
                    (dest dest2)
                    (help @copyfiles-help)
                )

            )

            (
                (copyfiles
                    (source "PCTCrossMount.doc")
                    (dest dest2)
                    (infos)
                    (help @copyfiles-help)
                )
            )
        )

        (tooltype
            (help @tooltype-help)
            (dest (tackon dest2 "PCTCrossMount.doc"))
            (noposition)
            (setdefaulttool "more")
        )
    )
)

;replace German readme file
(if (= (getsize (tackon dest2 "README_FIRST!")) german_readme_size)
    (
        (copyfiles
            (source "README_DEU")
            (dest dest2)
            (newname "README_FIRST!")
            (help @copyfiles-help)
        )
    )

    (
        (copyfiles
            (source "README")
            (dest dest2)
            (newname "README_FIRST!")
            (help @copyfiles-help)
        )
    )
)

(set @default-dest dest2)